home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 3
/
ct-rom iiib.zip
/
ct-rom iiib
/
WINDOWS
/
DIVERSEN
/
WINE02BX
/
MIM-SYNT.ELC
< prev
next >
Wrap
Text File
|
1993-03-28
|
1KB
|
20 lines
;;; compiled by @win386 on Sat Mar 13 14:32:10 1993
;;; from file c:/src/lucid-19.4/lisp/modes/mim-synt.el
;;; emacs version 19.3 Lucid.
;;; bytecomp version 2.08; 27-aug-92.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs18.
(if (and (boundp 'emacs-version)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19")))
(error "This file was compiled for Emacs19."))
(require 'mim-mode)
(fset 'slow-syntax-check-mim #[nil "└┴!êd┬ëëëëèebê¼Σ╔╩╦#½▄hë╠U½ç┬═╬Åê¬f╧U½ç┬╨╤Åê¬Yz╥U½⌐½Å╙╘╒ H╓\"╫\"U¼à`ë¬<@ë¡âSfA¬)½åB`¬)¼ê¼à└╪!¬└½┤bê╠ܽà┘┌!¬»¼ë┘█▄!\"¬ú┘▌è`SSbê`┬ê`^{)▄!#¬ëbê┘▐▄!\".ç" [message "checking syntax..." nil last-point whoops last-bracket current point-stack stop re-search-forward "\\s(\\|\\s)\\|\"\\|[\\]" t 34 (byte-code "└┴!ê┬┬ç" [re-search-forward "[^\\]\"" nil current] 2) ((error (byte-code "`┴ç" [whoops nil] 1))) 92 (forward-char 1) ((error)) 41 logand lsh syntax-table -8 127 "Syntax correct" error "Unterminated string" "Extraneous %s" char-to-string "Mismatched %s with %s" "Unmatched %s"] 7 "\
Check Mim syntax slowly.
Points out the context of the error, if the syntax is incorrect." nil])
(fset 'fast-syntax-check-mim #[nil "èebê└m¼î┬`d├#ë@├ܼq @├ܽà─┼!¬â╞╟!*ç" [nil state parse-partial-sexp 0 message "Syntax correct" error "Syntax incorrect"] 4 "\
Checks Mim syntax quickly.
Answers correct or incorrect, cannot point out the error context." nil])